home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / tlxjwpc5.zip / WHATBBS.SLT < prev   
Text File  |  1990-09-21  |  3KB  |  60 lines
  1. //╔═════════════════════════════════════════════════════════════════════╗
  2. //║ RBBS 17.3A         JW-PC Consulting DataFlex.HST      (608)837-1923 ║
  3. //║ Dual Std HST/V.32/MNP5/V.42     RBBSnet 8:972/2     FIDOnet 1:121/8 ║
  4. //╚═════════════════════════════════════════════════════════════════════╝
  5. //////////////////////////// WHAT_BBS.SLT /////////////////////////////
  6. // To compile, see that CS.EXE is in the same directory, then enter
  7. // "cs what_bbs" at the DOS prompt (leave out quotation marks).
  8. //
  9. // If you're connected to a BBS, prints the BBSs name in the lower
  10. // left-hand corner instead of the "Alt-Z for Help" message.  If you're not
  11. // connected, prints the Alt-Z message instead, when script is called.
  12. //
  13. // You can include this script at the beginning of any logon script with
  14. // the command, "calld(what_bbs);".
  15. //
  16. // You can use this script between calls either by hitting Alt-G, then
  17. // entering "what_bbs", or by attaching it to an unused key (hit
  18. // Alt-K,select the unused key, and enter "@what_bbs", white the new
  19. // key attachment to disk, then hit that key between calls).
  20. //
  21. // This script is a combination of ideas inspired by the Telix conference of
  22. // SMLNET, Paul Roub, and Jim Wargula.  This script is in
  23. // the PUBLIC DOMAIN.
  24. //
  25. // Standard disclaimer:  I'm not responsible if it messes up.
  26. //
  27. // Enjoy, and please let me know of any modifications or improvements it
  28. // may need.  Edit your own colors and status line position below...
  29. //
  30. ///////////////////////////////////////////////////////////////////////
  31.  
  32. int statline =  24;                      // Telix status line row
  33. int statback =   3;                      // status line background color
  34. int statfore =   0;                      // status line foreground color
  35.  
  36. main()
  37.  
  38. {
  39.  
  40.  int a = 0;                              // counter
  41.  int x, y;
  42.  
  43.  str bbsname[14] = "";                   // for storage and display
  44.  x = getx();                             // store original cursor position x
  45.  y = gety();                             // store original cursor position y
  46.  
  47.  substr(_entry_name,0,14,bbsname);       // get the current BBS name
  48.  
  49.  if ((strlen(bbsname) == 0) || (! carrier()))
  50.      bbsname = "Alt-Z for Help";         // display help message if no BBS
  51.  
  52.  strcat(bbsname, "              ");      // pad name with spaces
  53.  
  54.  pstraxy( bbsname, 1, statline,          // display it
  55.            (statback * 16) + statfore);
  56.  
  57.  gotoxy(x, y);                           // return to saved position
  58.  
  59. }
  60.